home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8505.arc / PWRITST.PAS < prev    next >
Pascal/Delphi Source File  |  1986-09-14  |  512b  |  22 lines
  1. PROGRAM PWRITST;
  2.  
  3. {This is a driver program for testing the function PWRI which
  4. calculates X (real) to the power N (integer).  The method of
  5. calculation is explained in the article and in the header of
  6. function PWRI.}
  7.  
  8. VAR  Z,X: REAL;
  9.        N: INTEGER;
  10.  
  11. {$I PWRI.PAS}
  12.  
  13. BEGIN
  14.  
  15.   WRITELN('Input X,N');
  16.   READLN(X,N);
  17.   Z := PWRI(X,N);
  18.   WRITELN;
  19.   WRITELN(Z);
  20.  
  21. END.
  22.